1 Q=PEEK(186):POKE820,Q:QA=PEEK(821):ONQAGOTO8:REM---LAEUFER09---
2 B=53280:PRINT"[147]":POKEB,0:POKEB+1,11:GOSUB130:GOSUB100
3 POKE821,1:LOAD"MSLAEUFER08*",Q,1
8 POKE45,0:POKE46,48:CLR:GOTO120
61 CY=INT(C/100):CX=C-(CY*100)
62 POKE211,CX:POKE214,CY:SYS58640:RETURN
68 LC=INT(L/100):LL=L-(LC*100)
69 FORX=LCTOLL:POKE781,X:SYS59903:NEXT:RETURN
100 PRINTTAB(15)""T0$
102 PRINTTAB(7)"[152]NACH EINER ERSTEN IDEE VON":PRINTTAB(14)"[155]BRUNO  JONNE"
104 PRINTTAB(12)"[152]PROGRAMMIERT VON":PRINTTAB(16)"[153]KA HA TE":FORI=0TO2000:NEXT
110 PRINTTAB(10)"[152]DATEN WERDEN GELADEN":PRINTTAB(14)"[144]BITTE WARTEN[155]":RETURN
120 L=724:GOSUB68:GOSUB130:C=1406:GOSUB61
121 PRINT"[152]FUER ERKLAERUNG <E[152]> DRUECKEN":PRINTTAB(18)"ODER"
122 PRINTTAB(10)"[144]WEITER MIT  <RETURN>[155]"
123 R$="":GETR$:ON-(R$<>CHR$(13)ANDR$<>CHR$(69))GOTO123
124 ON-(R$=CHR$(13))-2*(R$="E")GOTO126,200:GOTO123
126 PRINT"[147]":POKE7685,50:GOTO150
130 T0$="[153]LAEUFER 09":T1$="[155]VON KAHATE":RETURN
140 PRINTT0$;:PRINTSPC(70)T1$:RETURN
150 L=724:GOSUB68:Z=RND(-TI):Z1=INT(RND(1)*5)
160 Z2=INT(RND(1)*30):IFZ2<1THEN160
162 Z3=INT(RND(1)*5)
164 Z4=INT(RND(1)*230):IFZ4<50THEN164
170 Z5=INT(RND(1)*16):ON-(Z5=2)-2*(Z5=4)-3*(Z5=6)GOTO170,170,170
172 ON-(Z5=8)-2*(Z5=9)-3*(Z5=11)GOTO170,170,170
180 POKE822,Z1:POKE823,Z2:POKE824,Z3:POKE825,Z4:POKE7689,Z5
190 L=6:GOSUB68:C=Z1*100+Z2:GOSUB61:GOSUB140:GOTO240
200 PRINT"[147][155]ERLAEUTERUNG:":PRINT"TEXT UND LAEUFER FINDEN SICH"
202 PRINT"AEHNLICH EINEM BILDSCHIRMSCHONER":PRINT"AN IMMER ANDEREN BILD";
204 PRINT"SCHIRMSTELLEN.":PRINT"ERSCHEINUNGSORTE UND LAEUFERFARBEN"
206 PRINT"WERDEN DURCH ZUFALLSZAHLEN BESTIMMT.":PRINT"DER LAEUFER STAR";
208 PRINT"TET AUTOMATISCH":PRINT"ALLE 8 BIS 10 SEKUNDEN    ODER"
210 PRINT"NACH JEDEM <RETURN>    ODER AUCH":PRINT"DAUERND NACH TASTE  <D>"
212 PRINT"EFFEKT  NACH TASTE  <E>":PRINT"PROGRAMMENDE MIT TASTE  <_>"
219 GOTO122
240 ON-(R1$="E")GOTO260:SYS7680:GOTO300
260 SYS10752:R1$=""
300 I=0
302 R$="":GETR$:IFR$=CHR$(13)THENR1$="":GOTO150
304 ON-(R$=CHR$(95))GOTO999
306 IFR$=CHR$(68)THENR1$="D"
308 IFR$=CHR$(69)THENR1$="E":GOTO150
310 ON-(R1$="D")GOTO150:I=I+1:ON-(I>=200)GOTO150:GOTO302
999 POKE198,0:POKE53269,0:PRINT"[147]":END